unit UfrmKernel_Dados_Rapido;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UfrmKernel_Base, RzPanel, ExtCtrls, ImgList, ActnList, JvExControls,
  JvXPCore, JvXPButtons, StdCtrls;

type
  TfrmKernel_Dados_Rapido = class(TfrmKernel_Base)
    RzStatusBar1: TRzStatusBar;
    RzPanel1: TRzPanel;
    RzPanel4: TRzPanel;
    actlstDados: TActionList;
    ilDados: TImageList;
    actConfirmar: TAction;
    actCancelar: TAction;
    Label1: TLabel;
    RzPanel2: TRzPanel;
    JvXPButton1: TJvXPButton;
    JvXPButton2: TJvXPButton;
    procedure actConfirmarExecute(Sender: TObject);
    procedure actCancelarExecute(Sender: TObject);
  private
    { Private declarations }
  public
    procedure Antes_Confirma_Dados; virtual;
    procedure Confirma_Dados; virtual;
    procedure Depois_Confirma_Dados; virtual;
    procedure Cancelar_Dados; virtual;
    procedure Valida_Campos; virtual;
  end;

var
  frmKernel_Dados_Rapido: TfrmKernel_Dados_Rapido;

implementation

{$R *.dfm}

{ TfrmKernel_Dados_Rapido }

procedure TfrmKernel_Dados_Rapido.actCancelarExecute(Sender: TObject);
begin
  inherited;
  Cancelar_Dados;
end;

procedure TfrmKernel_Dados_Rapido.actConfirmarExecute(Sender: TObject);
begin
  inherited;
  Antes_Confirma_Dados;
  Confirma_Dados;
  Depois_Confirma_Dados;
end;

procedure TfrmKernel_Dados_Rapido.Antes_Confirma_Dados;
begin
  Valida_Campos;
end;

procedure TfrmKernel_Dados_Rapido.Cancelar_Dados;
begin

end;

procedure TfrmKernel_Dados_Rapido.Confirma_Dados;
begin

end;

procedure TfrmKernel_Dados_Rapido.Depois_Confirma_Dados;
begin
  ModalResult := mrOk;
end;

procedure TfrmKernel_Dados_Rapido.Valida_Campos;
begin

end;

end.
